home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tptc16.zip / MTPLUS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  2KB  |  66 lines
  1.  
  2. MODULE MENUS;
  3. CONST
  4. {$I MENUS.CON}
  5.  
  6. VAR
  7.     DUMMY_B:      BOOLEAN;
  8.     DATE:         STRING[12];
  9.     REVS:         BYTE;
  10.     WAIT_PERIOD:  LONGINT;
  11.     S:            STRING;   {default length?}
  12.     IN_TOP_LEVEL: EXTERNAL BOOLEAN;
  13.     MNS:          EXTERNAL ARRAY [1..200] OF STRING[40];
  14.     L_MARGIN:     EXTERNAL BYTE;
  15.  
  16.     EXTERNAL PROCEDURE PUTCHRS(CH: CHAR ; CNT: INTEGER);
  17.     (*------- notice the external declaration -------*)
  18.     EXTERNAL FUNCTION WAIT_FOR_CHAR: CHAR;
  19.     EXTERNAL FUNCTION GET_CHR_AND_MESSAGES: CHAR;
  20.     EXTERNAL FUNCTION SYS_TICK: LONGINT;
  21.     EXTERNAL PROCEDURE ANSWER;
  22.  
  23.     EXTERNAL  [1] PROCEDURE EDIT;
  24.     (*------- notice the external declaration in an overlay #1 -------*)
  25.     EXTERNAL  [2] PROCEDURE PREPARE;
  26.     EXTERNAL  [2] PROCEDURE SAVE_SYS_PARMS;
  27.     EXTERNAL  [5] PROCEDURE LOAD_MSG;
  28.     EXTERNAL  [5] PROCEDURE SAVE_MSG;
  29.     EXTERNAL  [5] PROCEDURE KILL_MSG;
  30.     EXTERNAL  [5] PROCEDURE VIEW_MSG;
  31.  
  32.  
  33. PROCEDURE SET_DATE(S: STRING);
  34. BEGIN
  35.   DATE := S;
  36.   ATTR := HILT; XYGOTO(60,1); WRITE([ADDR(PUT_CHR)],DATE);
  37.                               (** is this a file pointer? *)
  38.   ATTR := NORMAL;
  39. END;
  40.  
  41.  
  42. (*PROCEDURE CHANGE_ATTR;
  43. VAR
  44.     A: BYTE;
  45. BEGIN
  46.   A := HI(C);
  47.   IF A = HLUL THEN
  48.     WRITE([ADDR(PRN_CHR)],CHR(27),'-1')
  49.   ELSE
  50.     WRITE([ADDR(PRN_CHR)],CHR(27),'-0');
  51.   AT := A;
  52. END;*)
  53.  
  54. PROCEDURE SWITCH(CH: CHAR);
  55. BEGIN
  56.   C := (C & $FF00) ! ORD(CH);
  57.   (*----           ^ this is a bit-wise OR ----*)
  58.   (*----  ^ this is a bit-wise AND ----*)
  59. END;
  60.  
  61. {$E-}
  62. {$E+}
  63.  
  64. MODEND.
  65. (* ---- end of module ( separate compilation -----*)
  66.